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module Example_Embodiment (elk, clken, reset, phase, in, pwm) ; 



parameter WIDTH 


= 24; 


// 


Data path width 


parameter FACTOR 


= 8; 


// 


log2 of the divider in the ftr 


parameter PWMW 


= 4; 




The number bits in the PWM 


parameter MI 


=5 WIDTH - 1 ; 


f 1 


Max index of bus 


parameter RST_TO 


= (1 << MI) ; 


// 


Reset state. . 


input 


elk; 


// 


Main clock 


input 


clken ; 


/ / 






// 


this enable expected to be about 






// 


(I6*j2*rsj =s z4Nnz approx. 


input 


reset ; 


// 


Initialize asynchronous 


input [PWMWrO] 


phase; 


II 


PWM Phase control 


input [MI:OJ 


in; 


II 


The input audio data 


Wire lMl:Oj 


sin ; 


1 1 


ine input scaiea co 'X.idgld \//o) 


output 


pwm; 


/ / 


The obtput pwm bit 


reg 


pwm; 






wire 


pwma; 


// 


Internal asynchronous pwmbit 


wire [MI:0] 


fb; 


// 


Feedback quantity. . 


wire iwiuin:uj 


err; 


// 




wire [MI:0] 


serr; 


// 


Scaled error value 


reg [MI:0] 


int ; 


// 


Integrator in FB loop. . . 


wire IWIDTH:0] 


sum; 


// 


The actual sum prior to clip 


wire [MI:0] 


nxt_int ; 


// 


Next state of clipped integrator 


wire [MI:0] 


nxt_intl; 


// 


Intermediate next state 


wire force_ 


all_one; 


// 


Overflow and underflow bits 


wire force_ 


_all_zero_b; 







// The forward path through the PWM to the output stream: 

pwm # (WIDTH, PWMW) pwmi{clk, clken, reset, phase, int, pwma); 

// The feedback path through the filter: 

ftr # (WIDTH, FACTOR) ftri(clk, clken, reset, pwma, fb) ; 

// This is one example way to clip an integrator - namely, process one 

// extra bit and look for a difference in the extra bit and the 

// sign bit like this. 

assign #3 sum = {serr [MI] , serr} 

+ { int [MI] ,int ); 
assign #0 force_all_one = sum[MI] & -sum[MI+l] ; // Hi => OVF 
assign #0 f orce_all_zero_b = {sum[MI] | -sumlMI+1]); // Lo => UFL 
// This next line forces the nxt_doutl bus to all 1 if f orce_all_one 
// is true, forces it all 0 if f orce_all_zero_b is false... 
assign #0 nxt^intl = ( {-sum [MI] , sum[MI-l : 0] } 

I { WIDTH { f orce^al l_one ) } ) 

& {WIDTH {force_all_zero_b} } ; 
// . . and then just make the signed version. . 
assign #0 nxt_int = {-nxt_intl [MI] ,nxt_intl [MI-1 :0] } ; 

// Create the reduced amplitude input: in some cases, it may be advantageous 

// to drop the signal so that peaking at 15k is not distorted., 
assign #0 sin = in - { (3 (in [MI] } } , in [MI :3] } ; // ie in - 1/8 in 
// Now create the integrator in the loop .. first assign the 
// error gain: in this case, about 3/32 
assign #1 err = sin - fb; 

assign #1 serr « {{4{err(MI] }},err [MI:4] } // ie 1/16 
+ {{5(err[MI] }},err[MI:5]}; // + 1/32 
always ©(posedge elk or posedge reset) 
if (reset) 
begin 

int <= RST_TO; 
pwm <:= 1 'bO; 
end 

else if (clken) 
begin 

int <= nxt_int; 
pwm <= pwma; 
end 

endmodule // Example_Embodiment 
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// ========================== PWM CELL ============================== 

// This is an example cell that accepts a parallel input bus and creates the 
// output PWM stream... 

module pwm (elk, clken, reset, phase, in, out); 



parameter WIDTH ;= 16; 


// 


parameter PWMW 


- 4; 


// 


parameter MI 


= WIDTH 


- 1; // 


parameter PI 


= PWMW - 


1; // 


parameter PMAX 


= ((1 « 


PWMW) 


input 


elk; 


// 


input 


clken; 


// 






// 


input 


reset; 


// 


input [MI:0] 


in; 


// 


output 


out; 


// 


input [PWMWiO] 


phase; 


// 






// 






// 






// 






// 






// 


wire (PI:0) 


pwm; 


// 1 


wire 


pwmi; 


// 


wire [PI:0] 


sum; 


// ' 


wire 


pmax ; 


// 


wire 


pdoe ; 


// 



A clock enable qualifier: Fclk is 
this enable 

Initialize asynchronous 



run faster than the BRM so that 
the multi levels are converted 
to pulse widths. The MSB 
controls the odd/evem phase, the 
other bits the PWM 
ulse width required. . 
. increment by one of above 



// Asynchronously find when the phase MSB is about to change: 
assign pmax = (phase [PI :0] PMAX) ? 1 : 0; 

// Enable the pdo only when the phase MSB is about to change and 
// when the input is enabled - this generates the pdo clken signal: 
assign pdoe = pmax & clken; 

// Modulate the input bus into the to the PWM Width using something 
// very similar to the pdo cell again, but note that this generates 
// an output bus of width PWM width (and note this only runs at a 
// fraction of the input clock rate) . . 

pdow #(PWMW, WIDTH) pdop(clk, pdoe, reset, in, pwm, pwmi); 

// Now generate the pulse output by comparing the phase 

// count to the multi -bit output, however this comparison depends 

// upon the phase MSB.. Lisp code for reference: 

// (if (<= (if MSB (1+ phase) {- dith phase)) pwm) 1 -1) 

// A simple equivalent can be found by looking at the carry 

// output of the following expression; 

assign {out, sum} « ({ {PWMW{ phase [PWMW] }} } ^ phase (PI :0]) 
+ pwm + pwmi; 

// Thus the output variable (out) is asynchronous - it occurs 
// shortly after the clock, 
endmodule // pwm 
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// = = = = =:= = = = = === = = = = = = = =:= = = = =; FILTER CELL === = = = = = == = = = = = = === = = = = = = = = = 

// This is an example filter cell for the Example_Embodiment application, 

// which includes a single bit in the feedback input. It's a 

// simple IIR single pole filter like this: y <= y + a(x-y) where a is 

// 1/(2"FACT0R) 

module ftr (elk, clken, reset, in, out) ; 



parameter WIDTH 


= 16; 


// Data path width 


parameter FACTOR 


- 9; 


// The log2 of the divider 


parameter MI 


= WIDTH - 1; 


// Max index of bus 


input 


elk; 


// Main clock 


input 


clken; 


// A clock enable qualifier: Fclk is 






// this enable 


input 


reset; 


// Initialize asynchronous 


input 


in; 


// The input state 


output [MI:0] 


out ; 


// The output state 


reg [MI:0] 


out; 




always ©(posedge elk or posedge reset) 



if (reset) 



begin 

out <= 0; 
end 

else if (clken) 
begin 
out <= out 

- { { FACTOR { out [MI ] } } , out [MI : FACTOR] } 
+ {{FACTOR+l{-in}}, {MI-FACTOR{in}}}; 

end 

endmodule // ftr 
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1 1 ssssssssssssssssssBSssssass PDOW CELiL =s = ss=:sssssss = s = = s&s:bss:sssss = s 

// This cell is essentially a first order modulator - it creates 
// an output word (out) and a bit (inc) indicating the word should be 

// incremented by one to minimize the noise. There is one other 
// circumstance to attend to here - the 'in' may be clocked at 

// a rate that differs from this clock so that the following registers the input on 
// the enabled clock of this cell., 
module pdow (elk, clken, reset, in, out, inc); 



parameter 


M 




4; 






// The number of bits that are 












// 


"dithered" 


parameter 


N 




16 


\ 




// The width of the input number 


parameter 


NI 




N 


- 1; 




// Max index needed in width N 


parameter 


MI 




M 


- 1; 




// Max index needed in width M 


parameter 


ME 




NI 


- M; 




// max index of the residue: this is 












// 


the max index of the quantity 












// 


that is accumulated in the 












// 


modulo N error accumulator 


parameter 


RS 




N 


- M; 




// The amount to right shift the din 












// 


bus 


input 








elk; 




// Main clock 


input 








clken; 




// A clock enable qualifier: Folk is 



// 



input 
input 
reg 

output 
output 
reg 
wire 



[NI:0] 
[NI:0] 
[MI:0] 

(MErOl 
[ME:0] 



reset ; 

in; 
rin; 
out; 
inc; 

state; 
state nxt; 



this enable 
// Initialize asynchronous 
// The input state 
// Registered input state 
// The output state 
// The SD bit itself 

// The local state of the modulo n error 
// next state of the modulo n error 
// Just add the LSBs of the input to the running total in state, 
// allow state to overflow and keep track of the overflow bit in 
// the inc wire: 

assign {inc, state_nxt} = {I'bO, state} + {l 'bO, rinlME:0] } ; 
// The output is just the msbs that are not being accumulated in 
// the state, plus 1 if the state has overflowed - as indicated in 
// the inc bit. . . 

assign out = {-rin[NIl , rin [NI-1 :RS] } ; 
// clock like this: 

always ©(posedge elk or posedge reset) 
if (reset) 
begin 
state <= 0; 
rin <= 0; 
end 

else if (clken) 
begin 
rin <= in; 
state <= state_nxt; 
end 

endmodule // pdow 
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